home *** CD-ROM | disk | FTP | other *** search
/ Internet Tools (InfoMagic) / Internet Tools.iso / dos_win / winsock / maillist / 94-05.Z / 94-05 / 000089_fit106@its.csiro.au_Fri May 6 20:23:09 1994.msg < prev    next >
Internet Message Format  |  1994-05-31  |  3KB
  1. Received: from commsun.its.csiro.au by SunSITE.Unc.EDU (5.65c+IDA/FvK-1.07) with SMTP
  2.           id AB20557; Thu, 5 May 1994 20:24:39 -0400
  3. Received: by commsun.its.CSIRO.AU id AA07843
  4.   (5.65c/IDA-1.4.4 for Multiple recipients of list <winsock@sunsite.unc.edu>); Fri, 6 May 1994 10:23:11 +1000
  5. Date: Fri, 6 May 1994 10:23:09 +1000 (EST)
  6. From: Kent Fitch <Kent.Fitch@its.csiro.au>
  7. Sender: Kent Fitch <Kent.Fitch@its.csiro.au>
  8. Reply-To: Kent Fitch <Kent.Fitch@its.csiro.au>
  9. Subject: Re: New Telnet/MUDClient Troubles
  10. To: Chris Rowley <chris@clubside.digex.net>
  11. Cc: Multiple recipients of list <winsock@sunsite.unc.edu>
  12. In-Reply-To: <chris.4.000DFC32@clubside.digex.net>
  13. Message-Id: <Pine.3.89.9405061049.A7127-0100000@commsun.its.CSIRO.AU>
  14. Mime-Version: 1.0
  15. Content-Type: TEXT/PLAIN; CHARSET=US-ASCII
  16.  
  17. On Thu, 5 May 1994, Chris Rowley wrote:
  18.  
  19. > >        I am no expert by any means but is it possible to write everything in 
  20. > >Visual Basic? <:-) (maybe a dumb question) Can the interface to winsock (VBX) 
  21. > >be written in VB itself?
  22. > 
  23. > Hi Paul,
  24. >    As visual basic stands, it looks like the answer in no. The hostent data 
  25. > structure (which is used for such, oh, noteworthy functions like 
  26. > gethostbyname, cannot be realized in VB because it contains lists of lists. 
  27.  
  28. At the risk of sounding like a zealot, I think that ALMOST ANYTHING to do 
  29. with WINSOCK can be written in VB.  I have done a basic set of routines 
  30. in VB calling the WINSOCL DLL directly - these worked in blocking mode, 
  31. and I am currently porting them to work in async mode - this would be 
  32. impossible except for the wonderful MSGBLAST.VBX (public domain from 
  33. Microsoft).  Meanwhile, to call the blocking "get host by name", use 
  34. something like this fragment:
  35.  
  36. Type hostent
  37.     h_name_addr As Long
  38.     h_aliases_ptr_addr As Long
  39.     h_addrtype As Integer
  40.     h_length As Integer
  41.     h_addr_list_ptr_addr As Long
  42. End Type
  43.  
  44. Declare Function gethostbyname Lib "winsock.dll" (ByVal hostname As
  45. String) As Long
  46. Declare Sub hmemcpy Lib "Kernel" (dest As Any, src As Any, ByVal n As Long)
  47.  
  48. Function TCPHostLookup (host$) As Long
  49.  
  50.  
  51.     Dim thishost As hostent
  52.     Dim hostptr As Long
  53.     Dim addrp As Long
  54.     Dim addr1 As Long
  55.  TCPHostLookup = 0   ' assume the werst
  56.  
  57.     hostptr = gethostbyname(ByVal host$)
  58.     If hostptr = 0 Then
  59.  
  60.        Debug.Print "lookerr:" & TCPGetErrorMsg()
  61.     Else
  62.         Debug.Print "hostptr="; hostptr
  63.         hmemcpy thishost, ByVal hostptr, 16
  64.         hmemcpy addrp, ByVal thishost.h_addr_list_ptr_addr, 4
  65.         Debug.Print "addrp=", addrp
  66.         If addrp <> 0 Then
  67.             hmemcpy addr1, ByVal addrp, 4
  68.             Debug.Print "final addr=", addr1
  69.             TCPHostLookup = addr1   ' the jackpot
  70.         End If
  71.     End If
  72. End Function
  73.  
  74. Note: TCPGetErrorMsg() just gets the last WS error and decodes into English
  75.  
  76. Goodluck
  77.  
  78. Kent Fitch                           Ph: +61 6 276 6711
  79. ITSB   CSIRO  Canberra  Australia    kent.fitch@its.csiro.au
  80. "We dare not trust our wit for making our house pleasant for our friends,
  81.  so we buy ice-cream"     -  Ralph Waldo Emerson